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-- NubControl .Mesa 

~- Edited by Johnsson on July 26, 1978 8:29 AM 

DIRECTORY 

AUoFileDefs: FROM "altof iledef s" USING [CFA, eofDA. FA], 
ControlDefs: FROM "control defs" USING [ 

GFT, GlobalFrameHandle, NullGlobalFrame] , 
CoreSwapDefs: FROM "coreswapdef s" USING [CAbort. CantSwap], 
DisplayDefs: FROM "displaydef s" USING [DisplayControl ] , 
ImageDefs: FROM "imagedefs" USING [ 

AddFileRequest, FileRequest, ImageVersion, Makelmage, StopMesa], 
lODefs: FROM "iodefs" USING [ 

CR, DEL, LineOverflow, NewLine, NUL, ReadChar, ReadID, ReadNumber, 

Rubout, SP, WriteChar, WriteOctal, WriteString] , 
LoaderDefs: FROM "loaderdefs" USING [Load, Loader, New, VersionMismatch] , 
LoaderUtilityDefs: FROM "loaderutil itydef s" USING [FileNotFound], 
MiscDefs: FROM "miscdefs" USING [CallDebugger] , 
ProcessDefs: FROM "processdef s" USING [Aborted], 
SegmentDefs: FROM "segmentdef s" USING [ 

FileSegmentHandle, LockFile, Read, ReleaseFile, UnlockFile], 
StreamDefs: FROM "streamdefs" USING [ 

CreateByteStream, GetFA, JumpToFA. KeyStreams, Read, StreamHandle] , 
StringDefs: FROM "stringdefs" USING [ 

AppendChar, AppendString, EquivalentString, Inval idNumber, 

StringBoundsFaul t], 
TimeDefs: FROM "timedefs" USING [AppendDayTime, DefaultTime, UnpackDT]; 

NubControl: PROGRAM 

IMPORTS CoreSwapDefs, DisplayDefs, ImageDefs, lODefs, LoaderDefs, 

ProcessDefs, SegmentDefs, StreamDefs, StringDefs, TimeDefs, 

LoaderUtil ityDefs 
EXPORTS MiscDefs - 

BEGIN 

-- System Signals are converted to these to prevent NubCommand 

-- from catching user generated signals 

Delete: SIGNAL =» CODE; -- nee Rubout 

StringTooLong: ERROR « CODE; -- nee LineOverflow 

BadFile: ERROR [badname: STRING] « CODE; -- nee FileNameError 

BadVersion: SIGNAL [badname: STRING] « CODE; -- nee VersionMismatch 

BadNumber: ERROR = CODE; -- nee Inval idNumber 

GlobalFrameHandle: TYPE « ControlDefs .GlobalFrameHandle; 
NullGlobalFrame: GlobalFrameHandle = ControlDefs. Nul IGlobalFrame; 

useCommandLine, skiplmage: BOOLEAN ♦- TRUE; 

idstring: STRING <- [40]; 

def aultf name: GlobalFrameHandle *- NullGlobalFrame; 

DoCommand: PROCEDURE « 
BEGIN OPEN ControlDefs; 
p: PROCESS; 
f: GlobalFrameHandle; 
IF skiplmage THEN Skiplmage[]; 

f *- IF useCommandLine THEN LoadSystem[] ELSE Command[]; 
IF f # NullGlobalFrame THEN 

BEGIN 

p ♦- FORK StartModule[LOOPHOLE[f]]; 

JOIN p; 

END; 
RETURN 
END; 

StartModule: PROCEDURE [f: PROGRAM] - 
BEGIN 
BEGIN 

ENABLE ProcessDefs. Aborted, CoreSwapDefs .CAbort «> CONTINUE; 
IF ~LOOPHOLE[f, GlobalFrameHandle], started THEN START f ELSE RESTART f; 
END; 
RETURN 
END; 

Command: PROCEDURE RETURNS [GlobalFrameHandle] - 
BEGIN OPEN lODefs; 
nCommand: STRING « "New"L; 
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sCommand: STRING - "Start^'L; 
mCommand: STRING » "Makelmage'T; 
dCommand: STRING - "Debug"L; 
qCommand: STRING ■ "Quif'L; 
c: CHARACTER; 
f: GlobalFrameHandle; 
DO 

WriteEOL[]; WriteChar[ '>]; 
SELECT c^ReadChar[] FROM 
♦N.'n «> 

BEGIN 

WriteString[nConimand]; 

LoadModu1e[]; 

END; 
'S.'s «> 

BEGIN 

WriteString [sCommand]; 

f <- getgfram0[]; 

WriteEOL[]; 

RETURN[f]; 

END; 
'D,'d "> 

BEGIN 

WriteString [dCommand]; 

conf irm[] ; 

MiscDefs.CanDebugger[NIL]; 

END; 
•Q.'q => 

BEGIN 

WriteString [qCommand]; 

conf irm[] ; 

ImageDefs.StopMesa[]; 

END; 
'M, 'm «> 

BEGIN 

WriteString[mCommand]; 

ImageDef s .Makelmage[getf ilename[" . image"L]] ; 

END; 
CR.SP => NULL; 
ENDCASE -> 

BEGIN 

WriteChar[c]; 

WriteString[" Commands are:"L]; 

WriteChar[' ]; WriteString[nCommand]; 

WriteChar[' ]; WriteString[sCommand]; 

WriteChar[' ]; WriteString[mCommand] ; 

WriteChar[' ]; WriteString[dCommand]; 

WriteChar[' ]; WriteString[qCommand]; 

END; 
ENDLOOP; 
RETURN[NunG1oba1 Frame] 
END; 

LoadModule: PROCEDURE « 
BEGIN 

name: STRING *- [40]; 
ext: STRING <- [10]; 
switches: STRING ^ [10]; 
i: CARDINAL ♦- 0; 
g: GlobalFrameHandle; 
fn: STRING = " Filename: "L; 
get: PROCEDURE RETURNS [c: CHARACTER] » 

BEGIN 

IF i - idstring. length THEN RETURN[IODef s .NUL]; 

c ♦- idstring[i]: 

i <- i + 1; 

RETURN[c] 

END; 
IODeFs.WriteString[fn]; 
IODefs.ReadID[idstring I lODef s .Rubout «> ERROR Delete; 

lODefs.LineOverflow «> ERROR StringTooLong]; 
GetToken[get , name, ext, switches]; 
IF ext. length « THEN ext ^ "bed"; 
StringDef s.Ap pen dChar[ name, ' . ]; 
St r i ngDefs. Appends tring[name, ext]; 
InitSwitches[]; 
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ProcessSwitches[ switches]; 

g <- LoaclNew[name, framelinks]; 

IF g j^ NullGlobalFrame THEN def aul tf name ♦- g; 

RETURN 

END; 

LoadNew: PROCEDURE [name: STRING, framelinks: BOOLEAN] 
RETURNS [g: Global FrameHandle] « 
BEGIN OPEN LoaderDefs; 
s: STRING - " -- "L; 
bed: SegmentDefs.FileSegmentHandle; 
bed ♦■ LoaderDefs. Load[nam9 

I BadFile, UNWIND «> NULL; ANY «> ERROR BadFi le[name]] ; 
g <- LoaderDefs. New[bcd, framelinks. FALSE 
1 BadFile, BadVersion, UNWIND =•> NULL; 
LoaderDefs. VersionMismatch «> 

BEGIN SIGNAL BadVersion[name] ; RESUME END; 
LoaderUtilityDefs.FileNotFound «> ERROR BadFile[name]; 
ANY «> ERROR BadFi le[name]] ; 
IODefs.WriteString[s]; 
IODefs.WriteOctal[g]; 
WriteEOL[]; 
RETURN 
END; 

getgframe: PROCEDURE RETURNS [f: GlobalFrameHandle] - 
BEGIN OPEN ControlDefs. lODefs; 
gf: STRING = " Global frame: "L; 
ngf: STRING = " not a global framel"L; 
WriteString[gf]; 
f ^ ReadNumber[def aul tf rame,8 

1 LineOverflow => ERROR StringTooLong; 
Rubout => ERROR Delete; 

StringDef s.InvalidNumber => ERROR BadNumber]; 
IF GFT[f.gfi]. frame ^ f THEN 

BEGIN WriteString[ngf]; SIGNAL CoreSwapDef s .CAbort END; 
defaultframe <- f; 
RETURN 
END; 



getfilename: PROCEDURE [def aul textension: STRING] RETURNS [STRING] 
BEGIN OPEN lODefs; 
fn: STRING = " Filename: "L; 
WriteString[fn]; 
ReadID[idstring I Rubout => ERROR Delete; 

LineOverflow => ERROR StringTooLong]; 
defaultext[idstring, def aul textension]; 
RETURN[idstring] 
END; 

defaultext: PROCEDURE [idstring: STRING, ext: STRING] » 
BEGIN 

i: CARDINAL; 

FOR i IN [0. .idstring. length) DO 
IF idstring[i] = ' . THEN EXIT; 
REPEAT FINISHED »> 

FOR i IN [0. , ext. length) DO 

StringDef s .AppendChar[idstring, ext[i] 

1 StringDefs.StringBoundsFaul t => ERROR StringTooLong]; 
ENDLOOP; 
ENDLOOP; 
END; 

confirm: PROCEDURE » 
BEGIN OPEN lODefs; 
c: STRING « " [Confirm] •'L; 
WriteString[c]; 
DO 

SELECT ReadChar[] FROM 
CR -> EXIT; 
DEL «> ERROR Delete; 
ENDCASE «> WriteChar['?]; 
ENDLOOP; 
WriteChar[CR]; 
RETURN 
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END; 

WriteEOL: PROCEDURE - 
BEGIN OPEN lODefs; 
IF -NewLine[3 THEN WriteChar[CR]; 
RETURN 
END; 

comcmRequest: short ImageDefs. FileRequest ♦- [ 
body: short[fin:, name: "Com. Cm."], 
file: NIL, 

access: SegmentDef s .Read, 
link: ]; 

Done: SIGNAL « CODE; 

debug, start, command, framelinks: BOOLEAN; 

ProcessSwitches: PROCEDURE [s: STRING] » 
BEGIN 

i: CARDINAL; 

inverse: BOOLEAN ♦- FALSE; 
FOR i IN [0. .s. length) DO 
SELECT s[i] FROM 

•c, 'C => BEGIN inverse <r FALSE; command ^ TRUE END; 
•d, 'D => BEGIN inverse ^ FALSE; debug ^ TRUE END; 

's, 'S => IF inverse THEN inverse <- start ^ FALSE ELSE start *- TRUE; 
'1, 'L «> BEGIN inverse <- FALSE; framelinks <- FALSE END; 
•- «=> inverse <- TRUE; 
ENDCASE -> inverse <- FALSE; 
ENDLOOP; 
END; 

InitSwitches: PROCEDURE =» 

BEGIN command <- debug <- FALSE; framelinks <- start <- TRUE; END; 

GetToken: PROCEDURE [ 

get: PROCEDURE RETURNS [CHARACTER], token, ext, switches: STRING] » 
BEGIN OPEN lODefs; 
s: STRING; 
c: CHARACTER; 

token. length ^ ext. length ♦- switches .length *- 0; 
s ♦- token; 

WHILE (c <- get[]) # NUL DO 
SELECT c FROM 
SP, CR «> 

IF token. length j^ OR ext. length ^ OR switches . length # THEN RETURN; 
' . => s *- ext; 
'/ => s <- switches; 
ENDCASE => StringDefs.AppendChar[s, c 

I StringDefs.StringBoundsFault => ERROR StringTooLong] ; 
ENDLOOP; 
RETURN 
END; 

cfa: AltoFileDefs.CFA; 

CommandLineCFA: PUBLIC PROCEDURE RETURNS [POINTER TO AltoFileDefs.CFA] « 
BEGIN 

RETURN[0cfa] 
END; 

CleanUpCommandLine: PROCEDURE » 
BEGIN 

SegmentDef s .UnlockFile[ comcmRequest. file]; 
SegmentDef s. ReleaseFile[ comcmRequest .file]; 
comcmRequest .file ♦- NIL; 
useCommandLine ♦- FALSE; 
RETURN 
END; 

LoadSystem: PROCEDURE RETURNS [user: Global FrameHandle] » 
BEGIN 
BEGIN 

ENABLE UNWIND «> CleanUpCommandLine[] ; 
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InitSwitches[]; 

user <- LoadUser[@cfa.fa 1 Done »> GOTO done]; 

IF user ^ NullGlobal Frame THEN defauUframe ^ user; 

IF debug THEN MiscDef s .CanDebugger[NIL]; 

IF -start THEN user ^ NullGlobalFrame; 
EXITS 

done ■> 

BEGIN user ^ NullGlobalFrame; CleanUpCommandLine[] END; 
END; 
RETURN 
END; 

LoadUser: PROCEDURE [fa: POINTER TO AltoFileDef s . FA] 
RETURNS [user: GlobalFrameHandle] » 
BEGIN OPEN lODefs, StreamDefs; 
com: StreamHandle; 
name: STRING ♦- [40]; 
ext: STRING <- [10]; 
switches: STRING ^ [10]; 
get: PROCEDURE RETURNS [c: CHARACTER] - 

BEGIN 

IF com.endof[com] THEN RETURN[NUL]; 

RETURN[com.get[com]]; 

END; 
com ^ CreateByteStream[comcmRequest .f ile, Read]; 
BEGIN 

StreamDefs. JumpToFA[com, fa 1 ANY => GO TO finished]; 

GetToken[get , name, ext, switches]; 

IF name. length « THEN GO TO finished; 

IF ext. length « THEN ext ^ "bcd"L; 

WriteEOL[]; WriteChar[ '>] ; 

WriteString[name]; 

StringDef s.AppendChar[name, '.]; 

StringDef s .AppendString[name, ext]; 

StreamDefs .GetFA[com, fa]; 

com.destroy[com]; 

ProcessSw itches [switches]; 

IF command THEN 
BEGIN 

ProcessSw itches [name]; 
user <- NullGlobalFrame; 
END 

ELSE user *- LoadNew[name, framelinks]; 
EXITS 

finished -> BEGIN com.destroy[com]; SIGNAL Done; END; 
END; 
RETURN 
END; 

Skiplmage: PROCEDURE « 

BEGIN OPEN lODefs, StreamDefs; 

com: StreamHandle; 

name: STRING ♦- [40]; 

ext: STRING *- [10]; 

switches: STRING ^ [10]; 

get: PROCEDURE RETURNS [c: CHARACTER] » 

BEGIN 

IF com.endof[com] THEN RETURN[NUL]; 

RETURN[com.get[com]]; 

END; 
skiplmage <- FALSE; 
IF comcmRequest.fi le = NIL THEN 

BEGIN 

cfa.fp <- [[l,0,l,17777B,177777B],AltoFileDefs.eofDA]; 

useCommandLine <- FALSE; 

RETURN 

END; 
cfa.fp ^ comcmRequest .f ile.fp; 
SegmentDefs.LockFile[comcmRequest.f ile]; 
InitSwitches[]; 

com *- CreateByteStream[comcmRequest.f ile, Read]; 
StreamDefs. GetFA[com, ©cfa.fa]; 
GetToken[get, name, ext, switches]; 
IF StringDef s .EquivalentString[ext, "image"L] THEN 

StreamDefs. GetFA[com, Qcfa.fa]; 
com.destroy[com]; 
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ProcessSw itches [switches]; 

IF debug THEN MiscDefs.CanDebugger[NIL] ; 

END; 

WriteHerald: PROCEDURE ■ 
BEGIN OPEN TimeDefs; 
h: STRING « "Alto/Mesa 4.1 of "L; 
time: STRING <- [18]; 

AppendDay Time [time, UnpackDT[ImageDefs. ImageVersion[] . time]]; 
time. length ♦- time. length - 3; 
IODefs.WriteString[h]; IODefs.WriteString[time]; 
time. length ^ 0; 

AppendDay Time [time, UnpackDT[Def aul tTime]]; 
time. length <- time. length - 3; 
WriteEOL[]; lODef s .WriteString[time] ; 
END; 

ErrorName: TYPE « {XXX, file, number, toolong, nodebug, aborted, diffver}; 

WriteError: PROCEDURE [error: ErrorName] » 
BEGIN 
IODefs.WriteString[SELECT error FROM 

file «> "IFile: "L, 

number «> "INumber"L, 

toolong »> "IString too long"L, 

nodebug => 

"External Debugger not installed, type DEL to abort "L, 

aborted => ".. .Aborted. .. "L, 

diffver => " referenced in different versions'^, 

ENDCASE »> " XXX"L] 
END; 

-- Main body 

START StreamDefs.KeyStreams; -- Start keyboard process 

ImageDef s .AddFileRequest[6comcmRequest]; 
START DisplayDefs.DisplayControl ; 

STOP; 

RESTART DisplayDefs.DisplayControl; 
START LoaderDefs. Loader; 

WriteHerald[]; 

DO OPEN lODefs; -- forever 
DoCommand[ 

1 Delete => BEGIN WriteError[XXX] ; CONTINUE END; 
CoreSwapDefs.CAbort «> CONTINUE; 
BadFile --[badname: STRING]— «> 

BEGIN 

WriteEOL[]; 

WriteError[f lie]; 

WriteString[badname]; 

CONTINUE 

END; 
BadNumber => 

BEGIN WriteEOL[]; WriteError[number] ; CONTINUE END; 
StringTooLong => 

BEGIN WriteEOL[]; WriteError[toolong] ; CONTINUE END; 
CoreSwapDef s .CantSwap «> 

BEGIN 

WriteEOL[]; 

WriteError [nodebug]; 

UNTIL ReadChar[]«DEL DO WriteChar[ ' 7] ENDLOOP; 

WriteError [aborted]; 

CONTINUE 

END; 
BadVersion --[badname: STRING]-- »> 

BEGIN 

WriteEOL[]; 

WriteError[f ile]; 

WriteString[badname]; 

WriteError[diffver]; 
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RESUME 
END; 
UNWIND «>CONTINUE 

]; 

ENDLOOP; 



END. 



